Imports System
Imports System.Collections
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Threading

''' <summary>
''' Interaction logic for Window1.xaml
''' </summary>
Partial Public Class SeismoUserControl
	Inherits UserControl
	Public Sub New()
		InitializeComponent()
	End Sub

	Private Function SetError(ByVal control As Control, ByVal msg As String) As Boolean
		MessageBox.Show(msg, "Error", MessageBoxButton.OK, MessageBoxImage.[Error])
		control.Focus()
		Return False
	End Function
End Class
